home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wereon1a / form2.frm next >
Text File  |  1999-06-26  |  1KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   630
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Visible         =   0   'False
  13.    Begin VB.Menu mnu_shell 
  14.       Caption         =   "Shell Menu"
  15.       Begin VB.Menu itm_refresh 
  16.          Caption         =   "Refresh"
  17.       End
  18.       Begin VB.Menu itm_hide 
  19.          Caption         =   "Hide"
  20.       End
  21.       Begin VB.Menu itm_quit 
  22.          Caption         =   "Quit"
  23.       End
  24.    End
  25. End
  26. Attribute VB_Name = "Form2"
  27. Attribute VB_GlobalNameSpace = False
  28. Attribute VB_Creatable = False
  29. Attribute VB_PredeclaredId = True
  30. Attribute VB_Exposed = False
  31. Private Sub itm_hide_Click()
  32.     If itm_hide.Caption = "Hide" Then
  33.         itm_hide.Caption = "Show"
  34.         Form1.Hide
  35.         Form1.Timer1.Enabled = False
  36.         winvis = False
  37.      Else
  38.         itm_hide.Caption = "Hide"
  39.         Form1.Timer1.Enabled = True
  40.      End If
  41. End Sub
  42.  
  43. Private Sub itm_quit_Click()
  44.     DeleteDC LogoDC
  45.     DeleteDC SpriteDC
  46.     DeleteDC BackDC
  47.     Shell_NotifyIcon NIM_DELETE, nidProgramData
  48.     Unload Form1
  49.     Unload Form2
  50.     End
  51. End Sub
  52.  
  53. Private Sub itm_refresh_Click()
  54.    Form1.Hide
  55.    winvis = False
  56. End Sub
  57.